home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 10 / 9 / DISK1095.ZIP / CUSTREPT.PRG < prev    next >
Text File  |  1980-01-01  |  2KB  |  53 lines
  1. *
  2. * CUSTREPT
  3. * CUSTOMER LISTING FROM CUSTOMER.DBF
  4. SET HEADING OFF
  5. SET SAFETY OFF
  6. SET STATUS OFF
  7. CLEAR
  8. CLEAR ALL
  9. SET TALK OFF
  10. SET BELL OFF
  11. @ 1,22 SAY "SMITH'S BIKEWORKS INFORMATION SYSTEM"
  12. @ 3,17 SAY ">> Customer Information System File Listing <<"
  13. @ 5,29 SAY "Today's Date: "
  14. ?? DATE()
  15. STORE "                    " TO NAMEST
  16. STORE "zzzzzzzzzzzzzzzzzzzz" TO NAMEEND
  17. STORE 00000 TO ZIPST
  18. STORE 99999 TO ZIPEND
  19. STORE "CUSTOMER" TO FILENAME
  20. STORE "NAME    " TO INDEX
  21. STORE "CUSTLIST" TO REPORT
  22. @ 7,1 SAY "Beginning LAST NAME to Include in Report " GET NAMEST
  23. @ 9,1 SAY "Ending LAST NAME to Include in Report    " GET NAMEEND
  24. @ 12,1 SAY "Range of ZIP CODES to Include in Report  " GET ZIPST
  25. @ 12,55 SAY "to " GET ZIPEND
  26. @ 15,1 SAY "Run Report From The Following FILE " GET FILENAME
  27. @ 17,1 SAY "Ordered by the Following INDEX     " GET INDEX
  28. @ 19,1 SAY "Using the REPORT FORMAT Named      " GET REPORT
  29. STORE " " TO DUMMY
  30. @ 21,1 SAY ;
  31. "REPLACE VALUES AT CURSOR, OR JUST PRESS ENTER IF CURRENT REPORT DESCRIPTION"
  32. @ 22,1 SAY ;
  33. "IS O.K.  'M' HERE RETURNS TO MENU, ANY OTHER KEY STARTS THE REPORT =>";
  34. GET DUMMY
  35. READ
  36. STORE UPPER(DUMMY) TO DUMMY
  37. IF DUMMY="M"
  38.    RETURN
  39. ENDIF
  40. * OPEN FILE USING INDEX SPECIFIED ABOVE, OR NO INDEX IF IT IS BLANK
  41. IF INDEX="  "
  42.    USE &FILENAME
  43. ELSE
  44.    USE &FILENAME INDEX &INDEX
  45. ENDIF
  46. * RUN REPORT SELECTING RECORDS AS SPECIFIED BY DEFAULTS OR SCREEN INPUTS
  47. SET CONSOLE OFF
  48. REPORT FORM &REPORT FOR LAST_NAME >= NAMEST.AND.LAST_NAME <= NAMEEND;
  49. .AND.ZIP >= ZIPST.AND.ZIP <= ZIPEND TO PRINT 
  50. SET CONSOLE ON
  51. CLEAR
  52. RETURN
  53.